home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
E-Education
/
(c)ed26.d64
/
the boat race
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
7KB
|
200 lines
10 POKE53280,0:POKE53281,0:POKE53272,21:P=0
15 PRINT"[147][155] WHC ENTERPRISES"
20 PRINT"[159] [146]";
22 PRINT" [146]";
24 PRINT" [146]";
26 PRINT" [146]";
28 PRINT" THE BOAT RACE [146]";
30 PRINT" [146]";
32 PRINT"[159] [146]";
34 PRINT" [146]":GOSUB392:GOSUB560
36 PRINT"[154] PRESS SPACE BAR [146] TO CONTINUE
38 [161]R$:[139]R$[179][177][199](32)[167]38
50 [137]1000
300 [141]530:[141]394:[153]"DEF TRY AGAIN!":[141]560:[141]391:[142]
320 [153]"CONT PRESS SPACE BAR WAIT TO CONTINUE:":[141]560
325 [161]R$:[139]R$[179][177][199](32)[167]325
330 [142]
350 [153]" CORRECT! WAIT":[141]500
355 [141]392:[153]"LOAD":[141]391:[142]
370 [153]" READ THIS CAREFULLY":[141]560:[141]560:[141]394:[142]
390 [129]T[178]1[164]600:[130]:[142]
391 [129]T[178]1[164]1000:[130]:[142]
392 [129]T[178]1[164]2000:[130]:[142]
393 [129]T[178]1[164]3000:[130]:[142]
394 [129]T[178]1[164]4000:[130]:[142]
395 [129]T[178]1[164]5000:[130]:[142]
500 [143] <YES>
505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
510 [151]54296,15:[151]54277,42:[151]54278,250
515 [151]54276,23:[151]54273,23:[151]54272,191
520 [129]T[178]1[164]250:[130]:[151]54276,32:[129]T[178]1[164]300:[130]
525 [151]54296,0:[142]
530 [143] <NO>
535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
540 [151]54296,15:[151]54277,18:[151]54278,242
545 [151]54276,33:[151]54273,4:[151]54272,48
550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
555 [151]54296,0:[142]
560 [143] <BLIP>
565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
570 [151]54296,8:[151]54277,42:[151]54278,250
575 [151]54276,23:[151]54273,23:[151]54272,191
580 [129]T[178]1[164]40:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
585 [151]54296,0:[142]
1000 [153]"PRINTLOAD I WANT YOU TO READ A STORY ABOUT
1010 PRINT" PEOPLE RACING BOATS ACROSS A LAKE.
1020 [153]" AFTER YOU HAVE READ THE STORY, THERE
1030 PRINT" WILL BE SOME QUESTIONS FOR YOU TO ANSWER.
1040 [153]"CONT PRESS SPACE BAR WHEN YOU ARE READY.":[141]560
1050 [161]R$:[139]R$[179][177][199](32)[167]1050
1055 [141] 1200
1060 [137]2000
1080 [141] 1200
1085 [137]2000
1200 [153]"LOAD THE STORY WAIT"
1202 [153]"OPEN LAST SATURDAY THERE WAS A BOAT RACE.
1204 PRINT" EIGHT BOATS WERE IN THE RACE. THE
1206 [153]" BOATS HAD TO RACE ACROSS THE LAKE.
1208 PRINT" THE BOATS THAT GOT TO THE OTHER
1210 [153]" SIDE FIRST WERE THE WINNERS.
1212 PRINT" THE BOATS WERE IN A LINE. THEY
1214 [153]" STARTED OFF WITH A GREAT ROAR. A BIG
1216 PRINT" RED BOAT WENT FAST. A YELLOW BOAT
1218 [153]" WENT FASTER. THE OTHER BOATS WERE BEHIND THEM.
1220 PRINT" THEN A FIRE STARTED IN THE RED BOAT.
1222 [153]" IT STOPPED WHILE PEOPLE TRIED TO PUT OUT THE FIRE.
1224 GOSUB320
1226 PRINT"[147] THE STORY - CONTINUED [146][159]"
1228 PRINT" A WHITE BOAT WENT TOO CLOSE TO SHORE
1230 [153]" AND GOT STUCK IN THE MUD. THE YELLOW
1232 PRINT" BOAT BUMPED INTO THE BROWN BOAT AND
1234 [153]" BOTH BOATS HAD TO STOP.
1236 PRINT" A PINK BOAT GOT TO THE OTHER SIDE
1238 [153]" FIRST. A GREEN BOAT CAME IN SECOND.
1240 PRINT" A PURPLE BOAT CAME IN THIRD AND AN
1242 [153]" OLD ORANGE BOAT WAS THE LAST IN THE RACE.
1244 PRINT" ALL THE BOATS THAT GOT ACROSS THE
1246 [153]" LAKE WERE WINNERS. PEOLE ON THOSE
1248 PRINT" BOATS WON SOME MONEY."
1277 PRINT"[154] PRESS SPACE BAR TO CONTINUE":GOSUB560
1278 GETR$:IFR$<>CHR$(32)THEN1278
1280 PRINT"[147] YOU NOW HAVE A CHOICE:
1285 [153]" PRESS R WAIT TO REPEAT THE INSTRUCTIONS.
1290 PRINT" PRESS B [146] FOR THE QUESTIONS
1295 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"B"[167]1295
1296 [139]R$[178]"R"[167] [140]:[137]1200
1297 [140]:[153]"LOAD":[141]392
1298 [142]
2000 [153]"OPENLOAD WHERE WAS THIS RACE? ":[141]560
2010 [153]"PRINT (A) ... ON A PLAYGROUND
2020 PRINT" (B) ... ON A STREET
2030 [153]" (C) ... IN THE WATER
2040 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
2050 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2050
2060 [139]R$[178]"A"[167][153]"DEF READ CAREFULLY":[141]300:P[178]P[170]1:[137]2000
2070 [139]R$[178]"B"[167][153]"DEF WHOOPS! ":[141]300:P[178]P[170]1:[137]2000
2080 [139]R$[178]"D"[167][141]370:[141]1200:[137]2000
2090 [141]350
2100 [153]"OPENLOAD HOW MANY BOATS HAD TO STOP?PRINT":[141]560
2110 [153]" (A) ... FOUR
2120 PRINT" (B) ... THREE
2130 [153]" (C) ... EIGHT
2140 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
2150 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2150
2160 [139]R$[178]"B"[167][153]"DEF WHAT ABOUT THE RED BOAT?":[141]300:P[178]P[170]1:[137]2100
2170 [139]R$[178]"C"[167][153]"DEF CAN YOU COUNT? ":[141]300:P[178]P[170]1:[137]2100
2180 [139]R$[178]"D"[167][141]370:[141]1200:[137]2100
2190 [141]350
2200 [153]"OPENLOAD WHAT HAPPENED TO THE WHITE BOAT?PRINT":[141]560
2210 [153]" (A) ... IT HAD A FIRE.
2220 PRINT" (B) ... IT CAME IN FIRST.
2230 [153]" (C) ... IT GOT STCK IN THE MUD.
2240 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
2250 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2250
2260 [139]R$[178]"A"[167][153]"DEF OH DEAR! ":[141]300:P[178]P[170]1:[137]2200
2270 [139]R$[178]"B"[167][153]"DEF WOW! NO SUCH LUCK! ":[141]300:P[178]P[170]1:[137]2200
2280 [139]R$[178]"D"[167][141]370:[141]1200:[137]2200
2290 [141]350
2300 [153]"OPENLOAD WHAT HAPPENED TO THE BROWN BOAT? PRINT":[141]560
2310 [153]" (A) ... IT WENT TOO NEAR THE LAND.
2320 PRINT" (B) ... IT WAS HIT BY THE YELLOW BOAT.
2330 [153]" (C) ... IT HAD A FIRE.
2340 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
2350 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2350
2360 [139]R$[178]"A"[167][153]"DEF CERTAINLY NOT!":[141]300:P[178]P[170]1:[137]2300
2370 [139]R$[178]"C"[167][153]"DEF WOW! ":[141]300:P[178]P[170]1:[137]2300
2380 [139]R$[178]"D"[167][141]370:[141]1200:[137]2300
2390 [141]350
2400 [153]"OPENLOAD WHAT DID THE WINNERS GET? PRINT":[141]560
2410 [153]" (A) ... MONEY
2420 PRINT" (B) ... CUPS
2430 [153]" (C) ... BOATS
2440 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
2450 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2450
2460 [139]R$[178]"B"[167][153]"DEF TEA CUPS? HO! HO! ":[141]300:P[178]P[170]1:[137]2400
2470 [139]R$[178]"C"[167][153]"DEF REALLY? ":[141]300:P[178]P[170]1:[137]2400
2480 [139]R$[178]"D"[167][141]370:[141]1200:[137]2400
2490 [141]350
2500 [153]"OPENLOAD WHICH BOAT WON THE RACE?PRINT":[141]560
2510 [153]" (A) ... THE YELLOW BOAT
2520 PRINT" (B) ... THE PINK BOAT
2530 [153]" (C) ... THE GREEN BOAT
2540 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
2550 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2550
2560 [139]R$[178]"A"[167][153]"DEF NO SUCH LUCK! ":[141]300:P[178]P[170]1:[137]2500
2570 [139]R$[178]"C"[167][153]"DEF DING! DING! ":[141]300:P[178]P[170]1:[137]2500
2580 [139]R$[178]"D"[167][141]370:[141]1200:P[178]P[170]1:[137]2500
2590 [141]350
2600 [153]"OPENLOAD WHICH BOAT CAME IN LAST? "
2605 [153]"PRINT":[141]560
2610 [153]" (A) ... THE RED BOAT
2620 PRINT" (B) ... THE PURPLE BOAT
2630 [153]" (C) ... THE ORANGE BOAT
2640 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
2650 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2650
2660 [139]R$[178]"A"[167][153]"DEF NOT SO! ":[141]300:P[178]P[170]1:[137]2600
2670 [139]R$[178]"B"[167][153]"DEF UGH! ":[141]300:P[178]P[170]1:[137]2600
2680 [139]R$[178]"D"[167][141]370:[141]1200:[137]2600
2690 [141]350
2700 [153]"OPENLOAD WHICH BOAT CAME IN THIRD?PRINT":[141]560
2710 [153]" (A) ... THE PURPLE BOAT
2720 PRINT" (B) ... THE RED BOAT
2730 [153]" (C) ... THE BLACK BOAT
2740 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
2750 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2750
2760 [139]R$[178]"B"[167][153]"DEF NOT LIKELY! ":[141]300:P[178]P[170]1:[137]2700
2770 [139]R$[178]"C"[167][153]"DEF WOW! THAT'S WILD! ":[141]300:P[178]P[170]1:[137]2700
2780 [139]R$[178]"D"[167][141]370:[141]1200:[137]2700
2790 [141]350
2800 [153]"OPENLOAD WHAT IS THE BEST NAME FOR THIS STORY?PRINT":[141]560
2810 [153]" (A) ... THE HORSE RACE
2820 PRINT" (B) ... THE BOAT RACE
2830 [153]" (C) ... A CAR RACE
2840 PRINT" (D) ... PLEASE SHOW ME THE STORY AGAIN
2850 [161]R$:[139]R$[179][177]"A"[175]R$[179][177]"B"[175]R$[179][177]"C"[175]R$[179][177]"D"[167]2850
2860 [139]R$[178]"A"[167][153]"DEF WAKE UP! ":[141]300:P[178]P[170]1:[137]2800
2870 [139]R$[178]"C"[167][153]"DEF YOU'RE BEING SILLY!":[141]300:P[178]P[170]1:[137]2800
2880 [139]R$[178]"D"[167][141]370:[141]1200:[137]2800
2890 [141]350
3000 [153]"LOAD SCORE BOARD WAIT":[141]391
3005 [139] P[178]0 [167] [153]"SYS EXCELLENT!!!! WAIT"
3010 [139] P[178]0[167] [141]500:[141]500:[141]393:[137]3045
3015 [139] P[178]1 [167] [153]"CONT YOU MADE JUST ONE BLOOPER.":[141]392
3020 [139] P[178]1 [167] [153]" GOOD WORK! WAIT"
3025 [139] P[178]1 [167] [141]500:[141]393:[137] 3045
3030 [153]"DEF YOU HAVE MADE"P"BLOOPERS.":[141]530:[141]530:[141]392
3035 [153]" YOU SHOULD REPEAT THIS GAME AND ":[141]560
3040 [153]" TRY TO GET A BETTER SCORE.":[141]393
3045 [153]"OPEN WAIT"
3050 [153]" YOU NOW HAVE A CHOICE:":[141]560
3055 [153]" PRESS R WAIT TO REPEAT THIS STORY
3060 PRINT" PRESS M [146] TO RETURN TO THE DISK MENU
3065 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167] 3065
3070 [139]R$[178]"R"[167] [140]:[137]1000
3075 [153]"LOAD RETURNING TO THE DISK MENU
3080 LOAD"MENU",8
3085 RUN
3090 END
4000 REM WHC 92 06 08